Вкаком из ниже предложений неправильно расставлены пробелы между словами и знаки препинания? 1)речь вести - не лапти плести. 2)где родился, там и сгодился. 3)с родной земли - умри , не сходи. 4)говорить - смешно, утаить - грешно.
//дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от -10 до 20. //Составьте программу, которая подсчитывает и выводит среднюю температуру по всем дням, //когда были заморозки. Гарантируется, что хотя бы в один день были заморозки
var i,x,y : shortint; s : real; t : array [1..30] of shortint; begin randomize; For i:=1 to 30 do begin t[i]:=random (31)-10; //заполняем таблицу случайным образом (в диапазоне от -10 до 20) writeln (i,' ',t[i]); //строка не обязательная просто позволяет увидеть заполненный массив end; for i:=1 to 30 do begin if t[i]<0 then begin x:=x+t[i]; y:=y+1; end; end; s:=x/y; writeln ('Средняя температура по дням, когда были заморозки ',s:0:2); end.
procedure PrintArray(var a: array100); var i: integer; begin for i := 1 to n do write(a[i]:3, ' '); writeln; end;
begin randomize; for i := 1 to n do a[i] := random(99) - 50;
PrintArray(a);
repeat f := true; for i := 1 to n - 1 do if (a[i] < 0) and (a[i + 1] >= 0) then begin f := false; t := a[i]; a[i] := a[i + 1]; a[i + 1] := t; end; until f; PrintArray(a);
3) С родной земли - умри, но не сходи.