Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
паскаль, одномерный массив
var a: array [1..6] of integer; i, max: integer;
begin
for i: =1 to 6 do read(a[i]);
max: =a[1];
for i: =1 to 6 do
if a[i]> max then max: =a[i];
writeln(max); readln; end.
стены, ученики, террористы(учителя : d), парты ии т.д.
разрушить : d,
может кто перепишет на паскаль
вот на c:
#include < stdio.h> int main(void){ int km, day; day = 1; km = 10; while (km < = 200) { if (km == 20) { printf("20km in %d day\n", day); } km += km / 10; day++; } printf("< 200km in %d day", day); printf("\n"); system("pause"); return 0; }
program _1_2; uses crt; var dlina, shirina, vysota: real; begin clrscr; textcolor(14); writeln('вычисление объёма параллелепипеда.'); writeln('введите исходные данные: '); write('длина (см) -> '); readln(dlina); write('ширина (см) -> '); readln(shirina); write('высота -> '); readln(vysota); writeln('объём: ',(dlina*shirina*vysota): 7: 2); repeat until keypressed; end.
Популярные вопросы